BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Q-R/Recognize.94.cpt/Recognize .94/background_11035.txt

Text File | 1988-11-13 | 14KB | 621 lines

-- background: 11035 from stack: in.94
-- bmap block id: 12704
-- flags: 0000
-- background id: 0
-- name: COroom
----- HyperTalk script -----
on idle
  global toreceive,whatsaid
  if toreceive is true then
    put empty into thestring
    repeat while charsavailable() <> 0
      set cursor to busy
      put "Someone is talking...please wait"
      put recvupto("","2","") into newIn
      put newIn after theString
    end repeat
    if thestring <> empty then
      put thestring into whatsaid
      put empty into thestring
      if whatsaid <> empty then
        talking whatsaid
      end if
      hide msg
      click at 497,280
    end if
  end if
end idle


on Talking said
  put "Talking"
  global theusername,newicon,thesound,mytest,newtalk, buttonname
  put said into mytest
  put Determine (Said) into kind
  if kind <> "Voice" then
    put "Handle" & kind into tohandle
    put " said" after tohandle
    do tohandle
  else
    put GetName (said) into holder
    put item 1 of holder into hisname
    get the number of items of holder
    put item 2 to it of holder into newtalk
    if newicon is empty then put "iconno" into newicon
    if newicon <> "iconno" then
      set the icon of bkgnd button buttonname to newicon
      put empty into newicon
    end if

    if thesound <> empty then
      play thesound
      put empty into thesound
    end if
    put return & return after newtalk
    put newtalk after bkgnd field HisName
    AutoScroll HisName
  end if

end talking

on AutoScroll which
  put "Autoscroll"
  put the number of lines of bkgnd field which into thelines
  if thelines > 4 then
    put thelines - 5 into newlines
    set the scroll of bkgnd field which to 12 * newlines
    put "Set the scroll of bkgnd field ""e&which"e &" to 12 * newlines" into dotodo
    do dotodo
  end if
end AutoScroll

function Determine whatsaid
put "Determine"
global User1, User2, User3
put whatsaid into thetemp
repeat forever
  set the cursor to busy
  if line 1 of whatsaid is empty then delete line 1 of whatsaid
  else exit repeat
end repeat
put whatsaid into tocheck
if tocheck contains ">>List" then
  return "Listing"
  put "IT's a listing"
else if tocheck contains "Message" then
  return "OhBulletin"
  put "It's a Bulletin"
else if tocheck contains "logged" then
  return "LogOn"
  put "It's a logon"
else if tocheck contains "***" then
  return "EnterExit"
  put "It's an enter or exit"
else
  return "Voice"
  put "It's a voice"
end if
end Determine

function NumberOfUsers thetrans
put "Numberofusers"
global user1, user2, user3
repeat until line 1 of thetrans contains "---"
  set cursor to busy
  delete line 1 of thetrans
end repeat
delete line 1 of thetrans
get the number of lines of thetrans
repeat with i = 1 to it
  put line i of thetrans into bkgnd field ("User "&i)
end repeat
put it into thenumber
return thenumber
end NumberOfUsers


function GetName whatsaid
put "GetName"
global theline,tempname,firstname
put whatsaid into theline
if line 1 of theline is empty then delete line 1 of theline
if char 1 of theline is "[" then put ahandle (theline) into tempname
else put word 1 to 2 of theline into tempname
if tempname contains "SYSOP" then put "SYSOP" into RealName
else
  put word 1 of tempname into firstname
  delete word 1 of tempname
  put word 1 of tempname into templast
  repeat forever
    set cursor to busy
    if char 1 of tempname is ":" then
      delete char 1 of tempname
      exit repeat
    else
      put char 1 of tempname after lastname
      delete char 1 of tempname
    end if
  end repeat
  put firstname & " " & lastname into realname
end if
put realname into item 1 of toreturn
put deletename (whatsaid) into item 2 of toreturn
return toreturn
end GetName

function deletename said
put "Deletename"
repeat forever
  if char 1 of said = ":" then exit repeat
  else delete char 1 of said
end repeat
delete char 1 of said
return said
end deletename

function AHandle tohandle
put "AHandle"
global newicon, thesound
delete char 1 of tohandle
if word 1 of tohandle is "Icon" then
  delete word 1 of tohandle
  put word 1 of tohandle into newicon
  delete word 1 of tohandle
end if
if word 1 of tohandle is "SOUND" then
  delete word 1 of tohandle
  put word 1 of tohandle into thesound
  delete word 1 of tohandle
end if
repeat forever
  if char 1 of tohandle is "]" then exit repeat
  else delete char 1 of tohandle
end repeat
delete char 1 of tohandle
return tohandle
end AHandle

on handleOhBulletin what
  endbulletin what
  hide msg
end handleohbulletin

on HandleEnterExit who
  repeat forever
    if line 1 of who is empty then
      delete line 1 of who
    else exit repeat
  end repeat
  put who into bkgnd field "SysMessages"
  beep 3
  wait 2
  rebuffer
  wait 2
  send mouseup to bkgnd button "Re-List"
  hide msg
end handleEnterExit

on HandleLogOn who
  repeat forever
    if line 1 of who is empty then
      delete line 1 of who
    else exit repeat
  end repeat
  put who into bkgnd field "SysMessages"
  beep 3
  wait 2
  rebuffer
  wait 2
  send mouseup to bkgnd button "Re-List"
  hide msg
end HandleLogOn


on ohbulletin
  hide msg
  find string "Message from" in bkgnd field "Infield"
  put the foundline into theline
  put word 2 of theline into startline
  put line startline of bkgnd field infield into thebulletin
  put word 2 of theline into linenumber
  add 1 to linenumber
  if line linenumber of bkgnd field infield is not empty then
    put return after thebulletin
    put line linenumber of bkgnd field infield after thebulletin
    put return after thebulletin
  end if
  endbulletin thebulletin
end ohbulletin

on endbulletin bulletin
  speak bulletin
  put return before bulletin
  put return after bulletin
  put bulletin into card field "Thebull"
  put return&"Click mouse to continue" after card field thebull
  show card field "thebull"
  wait until the mouse is down
  sendsport 1,false, return
  hide card field "thebull"
end endbulletin

on handlelisting who
  global todo, doagain, another,theusername
  put who into thesaying
  global user1,user2,user3
  put NumberOfUsers (thesaying) into thenumber
  repeat with i = 1 to 3
    set the name of bkgnd button i to bkgnd field ("User "&i)
    set the name of bkgnd field i to bkgnd field ("User "&i)
  end repeat

  repeat with i = 1 to 3
    show bkgnd button i
  end repeat

end handlelisting




-- part 3 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=5 top=105 right=157 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 262 / 262
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: CW NORMAN
----- HyperTalk script -----
on mouseUp
  put empty into bkgnd field id 4
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=78 top=105 right=154 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: CW NORMAN


-- part 5 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=77 top=160 right=209 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: SYSOP


-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=10 top=161 right=212 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 265 / 265
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SYSOP
----- HyperTalk script -----
on mouseUp
  put empty into bkgnd field id 5
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=77 top=215 right=264 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 2 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=12 top=307 right=342 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on returninfield
  if bkgnd field id 2 <> empty then
    sendsport  bkgnd field id 2
    sendsport  return
    wait 2 seconds
    put empty into me
    click at 98,296
  end if
end returninfield



-- part 8 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=7 top=218 right=267 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 267 / 267
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  put empty into bkgnd field id 7
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=6 top=232 right=275 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: JASON HASLUP:ok...bye!


-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=421 top=53 right=74 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  global lastco
  go to card lastco
  sendsport ".q"
  sendsport return

end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=168 top=53 right=74 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Broadcast
----- HyperTalk script -----
on mouseUp
  sendsport "."
  rebuffer
  push card
  go to card "Broadcast"

end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=305 top=53 right=74 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Re-List
----- HyperTalk script -----
on mouseUp
  sendsport  ".l"
end mouseUp



-- part 14 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=390 top=232 right=246 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 1


-- part 15 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=409 top=238 right=252 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 2


-- part 16 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=430 top=232 right=246 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 3


-- part 19 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=434 top=221 right=240 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 4


-- part 20 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=433 top=242 right=264 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 5


-- part 21 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=276 top=223 right=240 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 6


-- part 22 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=470 top=220 right=239 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 7


-- part 23 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=465 top=234 right=247 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 8


-- part 24 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=463 top=238 right=254 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 9


-- part 25 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=472 top=221 right=237 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User 10


-- part 26 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=17 top=273 right=292 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SysMessages
----- HyperTalk script -----
on mouseup
  put empty into me
end mouseup